5 REM PROGRAMM ZUM ERZEUGEN EINES
6 REM     22, READ ERROR
7 :
10 POKE 56,31:POKE 52,31:CLR:OPEN 1,8,15,"I"
20 FORX=0TO80:READA:POKE32768+X,A:NEXT
30 INPUT"[147] TRACK FUER ERROR 22";T
40 INPUT"SEKTOR FUER ERROR 22";S
50 POKE 32777,T:POKE 32834,T:POKE 32781,S
60 RESTORE
70 FORX=0TO80:PRINT#1,"M-W"CHR$(X)CHR$(5)CHR$(1)CHR$(PEEK(X+32768)):NEXT
80 PRINT:PRINT:PRINT"PROGRAMM STARTET"
90 PRINT#1,"M-E"CHR$(64)CHR$(5):CLOSE1:END
100 DATA165,18,133,22,165,19,133,23,169,35,133,24,169,1,133,25,32,39
110 DATA 245,32,86,245,173,12,28,41,31,9,192,141,12,28,169,255,141,3,28
120 DATA 169,85,141,1,28,80,254,184,80
130 DATA 254,184,80,254,184,32,0,254,76
140 DATA 158,253,234,234,234,234,234,234
150 DATA 234,234,169,35,133,10,169,224,133,2,165,2,48,252,96,0,0,0